function fenete(form)
{
  var x1= form.d1.value;
  var y1= form.d2.value;
  var x2= form.d3.value;
  var y2= form.d4.value;

 if ( x1=="" || y2=="" || x2=="" || y2=="" ) 

{
  alert ('ΣΥΜΠΛΗΡΩΣΤΕ ΟΛΑ ΤΑ ΠΛΑΙΣΙΑ,ΧΡΗΣΙΜΟΠΟΙΩΝΤΑΣ ΜΟΝΟ ΑΡΙΘΜΟΥΣ');
  return;
}
 xal=parseFloat(x2)-parseFloat(x1);
 xil=parseFloat(y2)-parseFloat(y1);
if ( xal==0 && xil==0 ) 
{
  alert ('ΝΑ ΓΙΝΕΙ ΕΛΕΓΧΟΣ ΣΥΝΤΕΤΑΓΜΕΝΩΝ.ΑΔΥΝΑΤΗ Η ΕΚΤΕΛΕΣΗ ΤΟΥ ΠΡΟΓΡΑΜΜΑΤΟΣ');
  return;
}
 pr8=Math.pow(xal,2);
 pr9=Math.pow(xil,2);
 pr10=parseFloat(pr8)+parseFloat(pr9);
 var pr11=Math.sqrt(pr10);
 pr16=xal/xil;
 pr17=Math.atan(pr16)*(63.661977236758134307553505349006);
 pr18=Math.abs(pr17);

if (isNaN(pr11))

{
alert ('ΑΔΥΝΑΤΗ Η ΕΚΤΕΛΕΣΗ ΤΟΥ ΠΡΟΓΡΑΜΜΑΤΟΣ.ΚΑΠΟΙΟ ΠΛΑΙΣΙΟ ΕΧΕΙ ΣΥΜΒΟΛΟ(ΓΡΑΜΜΑ)');
  return;
}

 if (xal>0 && xil>0)
{
  atp=pr18;
}
 else if (xal>0 && xil==0)
{
  atp=100;
}
 else if (xal>0 && xil<0)
{
  atp=200-pr18;
}
 else if (xal<0 && xil>0)
{
  atp=400-pr18;
}
 else if (xal<0 && xil==0)
{
  atp=300;
}
 else if (xal<0 && xil<0)
{
  atp=200+pr18;
}
 else if (xal==0 && xil>0)
{
  atp=0;
}
 else if (xal==0 && xil<0)
{
  atp=200;
}

greek.r1.value=atp.toFixed(4);
greek.r2.value=pr11.toFixed(2);

}